home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / admin_luMetro.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  9.1 KB  |  363 lines

  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <%
  8.     dim CityID
  9.     dim MajorCity
  10.     dim State
  11.     dim edit_lumetro_sql
  12.     dim view_lumetro_sql
  13.  
  14. sub request_edit_lumetro
  15. ''' request expected input parameters for this form
  16.     CityID = request("CityID")
  17.     MajorCity = request("MajorCity")
  18.     State = request("State")
  19. end sub
  20. sub request_view_lumetro
  21. ''' request expected input parameters for this form
  22.     CityID = request("CityID")
  23.     MajorCity = request("MajorCity")
  24.     State = request("State")
  25. end sub
  26.  
  27. sub validate_edit_lumetro
  28. ''' request and validate data entered from this form
  29.     CityID = trim(request("CityID"))
  30.     MajorCity = trim(request("MajorCity"))
  31.     State = trim(request("State"))
  32. end sub
  33. sub validate_view_lumetro
  34. ''' request and validate data entered from this form
  35.     CityID = trim(request("CityID"))
  36.     MajorCity = trim(request("MajorCity"))
  37.     State = trim(request("State"))
  38. end sub
  39.  
  40.  
  41. sub db_select_edit_luMetro
  42.     sql = "SELECT " & _ 
  43.     "CityID, " & _ 
  44.     "MajorCity, " & _ 
  45.     "State FROM luMetro" & _ 
  46.     " WHERE " & _ 
  47.     "luMetro.CityID = " & to_sql(CityID,"number") & ""
  48.     on error resume next
  49.     set rs = cn.Execute(sql)
  50.     if err.number <> 0 then
  51.         b_error = true
  52.     elseif rs.EOF then
  53.         b_results = false
  54.     else
  55.         CityID = rs("CityID")
  56.         MajorCity = rs("MajorCity")
  57.         State = rs("State")
  58.     end if
  59.     rs.Close
  60.     on error goto 0
  61. end sub
  62. sub db_insert_edit_luMetro
  63.     sql = "INSERT INTO luMetro" & _ 
  64.     "(" & _ 
  65.     "MajorCity," & _ 
  66.     "State" & _ 
  67.     ") VALUES (" & to_sql(MajorCity,"text") & "," & _ 
  68.     "" & to_sql(State,"text") & ")" & _ 
  69.     ""
  70.     'response.write sql
  71.     on error resume next
  72.     cn.Execute(sql)
  73.     if err.Number <> 0 then
  74.         b_error = true
  75.     else
  76.         set rs = cn.Execute("SELECT @@IDENTITY")
  77.         CityID = rs(0)
  78.         rs.Close
  79.     end if
  80.     on error goto 0
  81. end sub
  82. sub db_update_edit_luMetro
  83.     sql = "UPDATE luMetro SET " & _ 
  84.     "MajorCity = " & to_sql(MajorCity,"text") & ", " & _ 
  85.     "State = " & to_sql(State,"text") & " WHERE " & _ 
  86.     "CityID = " & to_sql(CityID,"number") & ""
  87.     'response.write sql
  88.     on error resume next
  89.     cn.execute(sql)
  90.     if err.number <> 0 then
  91.         b_error = true
  92.     end if
  93.     on error goto 0
  94. end sub
  95. sub db_delete_edit_luMetro
  96.     sql = "DELETE FROM luMetro" & _ 
  97.     " WHERE " & _ 
  98.     "CityID = " & to_sql(CityID,"number") & ""
  99.     'response.write sql
  100.     on error resume next
  101.     cn.Execute(sql)
  102.     if err.number <> 0 then
  103.         b_error = true
  104.     end if
  105.     on error goto 0
  106. end sub
  107. sub db_select_view_luMetro
  108.     view_luMetro_sql = "SELECT " & _ 
  109.     "CityID, " & _ 
  110.     "MajorCity, " & _ 
  111.     "State FROM luMetro" & _ 
  112.     ""
  113.     if request("sortby") <> "" AND inStr(lcase(view_luMetro_sql),"order by") = 0 then view_luMetro_sql = view_luMetro_sql + " ORDER BY " & request("sortby")
  114. end sub
  115. sub db_update_view_luMetro
  116.     sql = "UPDATE  SET " & _ 
  117.     "MajorCity = " & to_sql(MajorCity,"text") & ", " & _ 
  118.     "State = " & to_sql(State,"text") & ""
  119.     'response.write sql
  120.     on error resume next
  121.     cn.execute(sql)
  122.     if err.number <> 0 then
  123.         b_error = true
  124.     end if
  125.     on error goto 0
  126. end sub
  127. sub db_delete_view_luMetro
  128.     sql = "DELETE FROM " & _ 
  129.     ""
  130.     'response.write sql
  131.     on error resume next
  132.     cn.Execute(sql)
  133.     if err.number <> 0 then
  134.         b_error = true
  135.     end if
  136.     on error goto 0
  137. end sub
  138.  
  139. do_search = request("do_search")
  140. ''' request form keys
  141. CityID = request("CityID")
  142. ''' request action
  143. action = lcase(request("action"))
  144. ''' action case handler
  145. select case action
  146.  
  147. case "select_edit_lumetro"
  148. '  select the requested key record from database
  149. if CityID <> "" then
  150.     db_select_edit_luMetro
  151. else
  152.     b_error = true
  153.     error_list.add "edit_edit_luMetro", "Specify record to select."
  154. end if
  155.  
  156.  
  157. case "insert_edit_lumetro"
  158. '  request form data and insert a new record into database
  159.  
  160. validate_edit_lumetro
  161. if not b_error then
  162.     db_insert_edit_lumetro
  163. end if
  164.  
  165.  
  166.  
  167. case "update_edit_lumetro"
  168. '  request form data and update an existing database record
  169. validate_edit_lumetro
  170. if not b_error then
  171. if CityID <> "" then
  172.     db_update_edit_lumetro
  173. else
  174.     b_error = true
  175.     error_list.add "update_edit_lumetro", "Specify record to update."
  176. end if
  177. end if
  178.  
  179.  
  180. case "delete_edit_lumetro"
  181. '  delete the requested key database record
  182. if CityID <> "" then
  183.     db_delete_edit_lumetro
  184.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  185. else
  186.     b_error = true
  187.     error_list.add "delete_edit_lumetro", "Specify record to delete."
  188. end if
  189.  
  190.  
  191. case "update_view_lumetro"'  request form data from edit grid to update existing database records
  192. '  this case is only created when a grid form's 'update' property is enabled
  193. validate_view_lumetro
  194. if not b_error then
  195. if  then
  196.     db_update_view_lumetro
  197. else
  198.     b_error = true
  199.     error_list.add "update_view_lumetro", "Specify record to update."
  200. end if
  201. end if
  202.  
  203.  
  204. case "delete_view_lumetro"'  request form data from edit grid to delete existing database records
  205. '  this case is only created when a grid form's 'update' property is enabled
  206. if  then
  207.     db_delete_view_lumetro
  208.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  209. else
  210.     b_error = true
  211.     error_list.add "delete_view_lumetro", "Specify record to delete."
  212. end if
  213.  
  214.  
  215. end select
  216.  
  217. '  no action was specified, so handle the default case(s)
  218. if CityID <> "" then
  219.     db_select_edit_lumetro
  220. end if
  221.  
  222. db_select_view_lumetro
  223.  
  224. %>
  225.  
  226. This is the admistation area for the ''luMetro" lookup table. This table could be used to manage and orgranize information (links,conent,classifieds) by major metropolotian areas. This could also be used to create drop-down lists of the metro areas.
  227. <P><br>
  228. <%
  229. display_errs
  230. display_msg
  231. %>
  232.  
  233. <table class='headerTable'>
  234. <tr>
  235. <td class='headerTD'>
  236. Metropolitian Areas Lookup
  237. </td>
  238. </tr>
  239. </table>
  240. <table  >
  241. <form name="edit_luMetro" action="luMetro.asp" method="GET" >
  242. <tr>
  243.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=MajorCity" class=fieldFont title="">MajorCity</a></td>
  244.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td>
  245. </tr>
  246.         
  247.         <input type=hidden name="CityID" value="<% =CityID %>">
  248.         
  249. <tr>
  250.     <td class='dataTD' >
  251.         <input type=text  name="MajorCity" size="" maxlength="50" value="<% =MajorCity%>">
  252.     </td>
  253.     <td class='dataTD' >
  254.         <input type=text  name="State" size="" maxlength="50" value="<% =State%>">
  255.     </td>
  256. </tr>
  257. <tr>
  258.     <td align=right class=dataTD colspan=3>
  259.     <% if CityID = "" then %><input type=submit name=insert_button value=insert> <% end if %>
  260.     <% if CityID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luMetro.action.value = 'delete_edit_luMetro'"> <% end if %>
  261.     <% if CityID <> "" then %><input type=submit name=update_button value=update><% end if %>
  262.     </td>
  263. <input type=hidden name="action" value="<% if CityID <> "" then %>update<% else %>insert<%end if %>_edit_luMetro"></tr>
  264.  
  265. </form>
  266. </table>
  267.  
  268.  
  269. <%
  270.  
  271. page_no = request("page_no")
  272. if page_no = "" then page_no = 1
  273.  
  274. if view_luMetro_sql <> "" then
  275.     cmd.CommandText = view_luMetro_sql
  276.     rs.Filter = ""
  277.     rs.CursorLocation = 3
  278.     rs.CacheSize = 5
  279.     rs.Open cmd
  280.     if not rs.EOF then
  281.             rs.MoveFirst
  282.             max_count = cInt(rs.PageCount)
  283.             num_recs = rs.RecordCount
  284.             rs.AbsolutePage = page_no
  285.             results = true
  286.     else
  287.         results = false
  288.         rs.Close
  289.     end if
  290. else
  291.     results = false
  292. end if
  293. rec_count = 0
  294.  
  295. %>
  296.  
  297. <table class='headerTable'>
  298. <tr>
  299. <td class='headerTD'>
  300. luMetro
  301. </td>
  302. </tr>
  303. </table>
  304. <%
  305.  
  306. if results = true then
  307.  
  308. %>
  309.  
  310. <table  >
  311. <form name="view_luMetro" action="luMetro.asp" method="GET" >
  312. <tr>
  313.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=CityID" class=fieldFont title="">CityID</a></td>
  314.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=MajorCity" class=fieldFont title="">MajorCity</a></td>
  315.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td>
  316. </tr>
  317. <%
  318.  
  319. do while not rs.EOF
  320.  
  321. ':: read db record
  322. on error resume next
  323. CityID = rs("CityID")
  324. MajorCity = rs("MajorCity")
  325. State = rs("State")
  326. on error goto 0
  327.  
  328. %>
  329. <tr>
  330.     <td class='dataTD' >
  331.         <a href="luMetro.asp?CityID=<%=CityID%>"><% =CityID %></a>
  332.     </td>
  333.     <td class='dataTD' >
  334.         <input type=text  name="MajorCity" size="" maxlength="50" value="<% =MajorCity%>">
  335.     </td>
  336.     <td class='dataTD' >
  337.         <input type=text  name="State" size="" maxlength="50" value="<% =State%>">
  338.     </td>
  339. </tr>
  340. <%
  341.  
  342. rs.MoveNext
  343. rec_count = rec_count + 1
  344. loop
  345. rs.Close
  346.  
  347. %>
  348. <tr class=formtr>
  349.     <td class=dataTD align=right colspan=3>
  350.     <input type=submit name=update_button value=update>
  351.     </td>
  352. </tr>
  353. <input type=hidden name="action" value="update_view_lumetro">
  354.  
  355. </form>
  356. </table>
  357. <%
  358.  
  359. else
  360.  
  361. %>
  362.  
  363.     
  364.  
  365. <%
  366.  
  367. end if
  368.  
  369. %>
  370.  
  371.  
  372.  
  373.  
  374.  
  375. <%
  376. ':: assure that any db resources are freed
  377. on error resume next
  378. rs.Close
  379. set rs = NOTHING
  380. cn.Close
  381. set cn = NOTHING
  382. user_cn.Close
  383. set user_cn = NOTHING
  384. on error goto 0
  385. %>
  386.